Amiga News 96/Amiga News 96.iso/amig_ad_os/majorbank/install

Text File | 1997-05-04 | 8KB | 306 lines

;
; Script d'installation de MajorBank V1.0 Localisé.
; © 1996 Donat Michel (4/5/1997)
;
;=============================================================================
; English strings

(set def_language 4)

(set #bad-kick "You must be using Kickstart 3.0+ to install MajorBank")

(set #introduction
    (cat "\n\nWelcome to the MajorBank 1.0 installation tool"
         "\n\nWe will install MajorBank on your hard-disk"
         "\n\n\nMajorBnak is Copyright 1997 DONAT Michel"
         "\n\nPlease read the Readme file and the documentation for more informations"
    )
)

(set @default-dest "Work:")

(set #hd_prompt"Where do you want MajorBank to be installed?")

(set #hd_help
    (cat "    You must choose your hard disk partition on which MajorBank will install.\n"
         "The default partition is " @default-dest "\n\n"
         "    The installation software will create a directory named 'MajorBnak' located \n"
         "    where you have choosen"
    )
)

(set #desarchivage "Unpacking...")

(set #copy_docs "Copy of the documentation files ...")
(set #copy_Images "Copy of the Images drawers ...")

(set #assign_prompt "\n\nWe will assign the program in the user-startup file.")

(set #assign_help "\n This function allows the program to find its files.")

(set #quelle-langue "\nWhich languages to install?")

(set #quelle-langue-help
    (cat "    Amiga can be used with several languages.\n"
         "If you want MajorBank to use your Workbench language, \n"
         "a catalog must then be copied on your hard disk for each supported language.\n"
         "    Just click on the language that you want to be available on your system.\n"
         "    Note that the list displays more catalogs than available"
    )
)

(set #fin_install_hd
    (cat "\n\n Here we are... Installation is   completed"
         " Remember to reset your Amiga."
         " MajorBnak will be found in \n"
    )
)

;=============================================================================
; French strings

(if (= @language "français")
    (
        (set def_language 16)

        (set #bad-kick "MajorBank a besoin du système 3.0 ou plus : Installation impossible")

        (set #introduction
            (cat "\n\nBienvenue dans l'utilitaire d'installation de MajorBank"
                 "\n\nNous allons procéder à l'installation du programme sur votre Disque Dur"
                 "\n\n\nMajorBank est Copyright 1997 DONAT Michel"
                 "\n\nVeuillez lire le fichier ReadMe et la documentation pour de plus amples renseignements"
            )
        )

        (set @default-dest "Work:")

        (set #hd_prompt"Où voulez-vous installer le répertoire MajorBank ?")

        (set #hd_help
            (cat "    Vous devez choisir sur quelle partition de votre disque dur "
                     "le logiciel MajorBank s'installera. Par défaut il s'agit de la partition qui porte "
                 "le nom de " @default-dest "\n"
                 "    Le programme d'installation créera un "
                 "répertoire du nom de 'Majordome' à l'endroit que vous avez choisi."
            )
        )

        (set #desarchivage "Désarchivage des archives...")

        (set #copy_docs "Copie des Documentations ...")
        (set #copy_Images "Copie des répertoires Images ...")

        (set #assign_prompt "\n\nNous allons assigner le programme dans le fichier user-startup.")

        (set #assign_help "\n Cette fonction permet au programme de retrouver ses fichiers.")

        (set #quelle-langue "\nQuelles langues doivent être installées?")

        (set #quelle-langue-help
            (cat "    L'Amiga peut être utilisé dans différentes langues. Si vous "
                 "voulez que MajorBank utilise la même langue que votre Workbench, "
                 "un catalogue doit alors être copié dans votre disque dur pour "
                 "chaque langue supportée.\n"
                 "    Cochez simplement les langues que vous souhaitez avoir "
                 "disponibles dans votre systême.\n"
                 "    Sachez qu'il n'y a pas de autant de catalogues"
                 "disponibles que la liste le propose."
            )
        )

        (set #fin_install_hd
            (cat "\n\n Voilà.. l'installation est   terminée  ..."
                     " A la fin de celle-ci, n'oubliez pas de réinitialiser votre Amiga."
                 " Le programme se trouvera dans le répertoire \n"
            )
        )
    )
)
;=============================================================================
; Deutsch strings

(if (= @language "deutsch")
    (
        (set def_language 2)
    )
)
; == =========================================================

(if (= @language "dansk")
      (
            (set def_language 4)
      )
)

; == =========================================================

(if (= @language "español")
      (
            (set def_language 8)
      )
)
; == =========================================================

(if (= @language "italiano")
      (
            (set def_language 32)
      )
)
; == =========================================================

(if (= @language "nederlands")
      (
            (set def_language 64)
      )
)

; == =========================================================

(if (= @language "norsk")
      (
            (set def_language 128)
      )
)

; == =========================================================

(if (= @language "português")
      (
            (set def_language 256)
      )
)
; == =========================================================

(if (= @language "suomi")
      (
            (set def_language 512)
      )
)
; == =========================================================

(if (= @language "svenska")
      (
            (set def_language 1024)
      )
)

;
;
;
;
;
; Teste la version du Kickstart si <3.0 Installation impossible
;
(complete 0)
(if (< (/ (getversion) 65536) 40)
(
    (exit #bad-kick (quiet))
))

;
; Message introduction
;
(complete 5)
(message #introduction)

;********************************************************************************
; installation sur le disque Dur
;********************************************************************************
;======================== choix et assignement tiroir

(complete 10)

(set MajorBankDir
     (tackon
        (askdir
           (prompt #hd_prompt)
           (default @default-dest)
           (help #hd_help )
        )
        "MajorBank"
      )
)

;
;======================== création tiroir
;

(complete 20)
(makedir MajorBankDir (prompt #cree_tiroir destination ".") (infos))
;
;======================== copie des fichiers Majordome
;

(complete 30)
(copyfiles (source "MajorBank") (dest MajorBankDir))
(copyfiles (source "MajorBank.info") (dest MajorBankDir))
(copyfiles (source "Exemple.MBank") (dest MajorBankDir))

;
;======= Copie du tiroir Documentation ==================
;

(set destdocs (tackon MajorBankDir "Docs"))
(makedir destdocs (prompt #cree_tiroir destination "."))

(Working #copy_docs )
(complete 40)
(copyfiles
    (source "Docs")
        (dest destdocs)
        (optional nofail)
    (all)
    (infos)
)
(copyfiles (source "docs.info") (dest MajorBankDir))

;======= Copie du tiroir Images ==================

(set destimages (tackon MajorBankDir "Gfx"))
(makedir destimages (prompt #cree_tiroir destination "."))

(Working #copy_Images )
(complete 50)
(copyfiles
    (source "Gfx")
        (dest destimages)
        (optional nofail)
    (all)
    (infos)
)
(copyfiles (source "Gfx.info") (dest MajorBankDir))

;======= Copie des gadgets Boopsi ======================

(complete 75)
(copyfiles
    (source "classes/gadgets")
        (dest "Sys:Classes/gadgets/")
        (optional nofail)
    (all)
    (infos)
)

;======================= assign

(complete 90)
(startup "MajorBank"
    (command "assign MajorBank: " MajorBankDir "\n")
    (command "assign Libs: Sys:Classes ADD")
    (prompt #assign_prompt )
    (help #assign_help )
)

;======================= fin

(complete 100)

(message #fin_install_hd  MajorBankDir "\n")

(exit (quiet))